<!--#Include File="Include.asp"--><%
'--------------------------------------
'Power By 方卡在线 @2010-2014 f02
'URL:http://www.fangka.net/
'EMail:admin@ifangka.com
'QQ:861118936
'版权所有 未经允许不得去除本版权信息
'--------------------------------------

Dim PageCode,PageUrl,PageType,PageTemplate,PageSuffix
Dim mRs,mSqlstr,mModelTemplate
Dim ViewUrl,ViewDir
Set FKTemplate=New Cls_Template
Set mRs=Server.Createobject("Adodb.RecordSet")
PageSuffix=FullHtmlSuffix
MenuId=0

PageUrl=FKFun.HTMLEncode(Request.QueryString())
If Instr(PageUrl,"?") Then
	PageUrl=Split(PageUrl,"?")(0)
End If
PageNow=Request.QueryString("Page")
If PageNow<>"" Then
	PageNow=Clng(PageNow)
Else
	PageNow=1
End If

If Fk_Site_Html=1 Then
	PageType=FKFun.HTMLEncode(Request.QueryString("t"))
	Id=FKFun.HTMLEncode(Request.QueryString("id"))
	Select Case PageType
		Case "col"
			Sqlstr="Select Fk_Module_Id,Fk_Module_Type,Fk_Module_PageSize,Fk_Module_Template,Fk_Module_Link,Fk_Module_Menu,Fk_Module_IsIndex,Fk_Module_Model From [Fk_Module] Where Fk_Module_State=1 And Fk_Module_Id="&Id&""
		Case "view"
			Sqlstr="Select Fk_View_Id,Fk_View_Template,Fk_Module_LowTemplate,Fk_View_Link,Fk_View_Menu,Fk_Model_LowTemplate From [Fk_ViewList] Where Fk_View_Show=1 And Fk_View_Id="&Id&""
		Case "subject"
			Sqlstr="Select Fk_Subject_Id,Fk_Subject_Template From [Fk_Subject] Where Fk_Subject_Id="&Id&""
		Case Else
			PageType="index"
	End Select
Else
	Temp=FKFun.RegExpTest("index.*?"&Replace(PageSuffix,".","\."),LCase(PageUrl))
	If Instr(Temp,"_")>0 Then
		Temp=FKFun.GetSub(Temp,"_",".","err")
		If IsNumeric(Temp) Then
			PageNow=Clng(Temp)
			PageUrl=FKFun.DealPageUrl(PageUrl)
		End If
	End If
	
	If PageUrl="" Then
		PageType="index"
	ElseIf LCase(Left(PageUrl,8))="subject/" Then
		PageType="subject"
		TempArr=Split(PageUrl,"/")
		Sqlstr="Select Fk_Subject_Id,Fk_Subject_Template From [Fk_Subject] Where Fk_Subject_Dir='"&TempArr(1)&"'"
	ElseIf Instr(PageUrl,PageSuffix)>0 Then
		ViewDir=PageUrl
		ViewDir=FKFun.DealPageUrl(ViewDir)
		ViewUrl=Replace(PageUrl,ViewDir,"")
		ViewUrl=Replace(ViewUrl,PageSuffix,"")
		Sqlstr="Select Fk_View_Id,Fk_View_Template,Fk_Module_LowTemplate,Fk_View_Link,Fk_View_Menu,Fk_Model_LowTemplate From [Fk_ViewList] Where Fk_View_Show=1 And Fk_View_Url='"&ViewUrl&"' And (Fk_Module_Url='"&ViewDir&"' Or Fk_Module_FixedUrl='"&ViewDir&"')"
		PageType="view"
		Rs.Open Sqlstr,Conn,1,1
		If Rs.Eof Then
			Sqlstr="Select Fk_Module_Id,Fk_Module_Type,Fk_Module_PageSize,Fk_Module_Template,Fk_Module_Link,Fk_Module_Menu,Fk_Module_IsIndex,Fk_Module_Model From [Fk_Module] Where Fk_Module_State=1 And (Fk_Module_Url='"&PageUrl&"' Or Fk_Module_FixedUrl='"&PageUrl&"')"
			PageType="col"
		End If
		Rs.Close
	Else
		Sqlstr="Select Fk_Module_Id,Fk_Module_Type,Fk_Module_PageSize,Fk_Module_Template,Fk_Module_Link,Fk_Module_Menu,Fk_Module_IsIndex,Fk_Module_Model From [Fk_Module] Where Fk_Module_State=1 And (Fk_Module_Url='"&PageUrl&"' Or Fk_Module_FixedUrl='"&PageUrl&"')"
		PageType="col"
	End If
End If

If PageType="index" Then
	PageTemplate="index"
ElseIf PageType="subject" Then
	Rs.Open Sqlstr,Conn,1,1
	If Not Rs.Eof Then
		Id=Rs("Fk_Subject_Id")
		PageTemplate="subject"
		If Rs("Fk_Subject_Template")<>"" Then
			PageTemplate=Rs("Fk_Subject_Template")
		End If
	Else
		Rs.Close
		Call FKFun.ShowErr("error:未找到页面！&nbsp;&nbsp;page:专题",0)
	End If
	Rs.Close
ElseIf PageType="view" Then
	Rs.Open Sqlstr,Conn,1,1
	If Not Rs.Eof Then
		Id=Rs("Fk_View_Id")
		MenuId=Rs("Fk_View_Menu")
		If Rs("Fk_View_Link")<>"" Then
			Response.Redirect(Rs("Fk_View_Link"))
			Rs.Close
			Call FKFun.PageEnd()
		End If
		PageTemplate="view"
		If Rs("Fk_View_Template")<>"" Then
			PageTemplate=Rs("Fk_View_Template")
		ElseIf Rs("Fk_Module_LowTemplate")<>"" Then
			PageTemplate=Rs("Fk_Module_LowTemplate")
		ElseIf Rs("Fk_Model_LowTemplate")<>"" Then
			PageTemplate=Rs("Fk_Model_LowTemplate")
		End If
	Else
		Rs.Close
		Call FKFun.ShowErr("error:未找到页面！&nbsp;&nbsp;page:页面",0)
	End If
	Rs.Close
ElseIf PageType="col" Then
	Rs.Open Sqlstr,Conn,1,1
	If Not Rs.Eof Then
		Id=Rs("Fk_Module_Id")
		MenuId=Rs("Fk_Module_Menu")
		ModuleIndex=Rs("Fk_Module_IsIndex")
		If Rs("Fk_Module_Link")<>"" Then
			Response.Redirect(Rs("Fk_Module_Link"))
			Rs.Close
			Call FKFun.PageEnd()
		End If
		If Rs("Fk_Module_PageSize")>0 Then
			Fk_Site_PageSize=Rs("Fk_Module_PageSize")
		End If
		ModuleType=Rs("Fk_Module_Type")
		If ModuleType=0 Then
			PageTemplate="module"
			PageType="staticstate"
		ElseIf ModuleType=1 Then
			PageTemplate="viewlist"
			PageType="viewlist"
		ElseIf ModuleType=2 Then
			PageTemplate="info"
			PageType="info"
		ElseIf ModuleType=3 Then
			PageTemplate="gbook"
			PageType="gbook"
		End If
		If ModuleType=1 Or ModuleType=2 Then
			mSqlstr="Select Fk_Model_Template From [Fk_Model] Where Fk_Model_Id="&Rs("Fk_Module_Model")&""
			mRs.Open mSqlstr,Conn,1,1
			If Not mRs.Eof Then
				mModelTemplate=mRs("Fk_Model_Template")
			Else
				mModelTemplate=""
			End If
			mRs.Close
		Else
			mModelTemplate=""
		End If
		If Rs("Fk_Module_Template")<>"" Then
			PageTemplate=Rs("Fk_Module_Template")
		ElseIf mModelTemplate<>"" Then
			PageTemplate=mModelTemplate
		End If
	Else
		Rs.Close
		Call FKFun.ShowErr("error:未找到页面！&nbsp;&nbsp;page:模块",0)
	End If
	Rs.Close
	If ModuleType=5 Then
		Response.Redirect(SiteDir)
		Call FKFun.PageEnd()
	End If
End If

If MenuId>0 Then
	Sqlstr="Select Fk_Menu_Dir,Fk_Menu_Template From [Fk_Menu] Where Fk_Menu_Id=" & MenuId
	Rs.Open Sqlstr,Conn,1,1
	If Not Rs.Eof Then
		MenuDir=Rs("Fk_Menu_Dir")
		MenuTemplate=Rs("Fk_Menu_Template")
	Else
		Rs.Close
		Call FKFun.ShowErr("error:菜单不存在！",0)
	End If
	Rs.Close
	
	If MenuTemplate<>"" Then
'		If Instr(PageTemplate,"/")>0 Then
'			TempArr=Split(PageTemplate,"/")
'			Temp=","&TempArr(UBound(TempArr))&","
'		Else
'			Temp=","&PageTemplate&","
'		End If
		If Instr(DisTemplate,","&PageTemplate&",")>0 Then
			PageTemplate=MenuTemplate&"/"&PageTemplate
		End If
		If ModuleIndex=1 Then
			PageTemplate=MenuTemplate&"/index"
		End If
	End If
End If

PageCode=FKTemplate.GetTemplate(PageTemplate)
PageCode=FKTemplate.FileChange(PageCode)
PageCode=FKTemplate.SiteChange(PageCode)
if PageType="staticstate" Or PageType="viewlist" Or PageType="info" Then
	PageCode=FKTemplate.ModuleChange(PageCode,Id,PageType)
ElseIf PageType="subject" Then
	PageCode=FKTemplate.SubjectChange(PageCode,Id)
ElseIf PageType="view" Then
	PageCode=FKTemplate.ViewChange(PageCode,Id)
ElseIf PageType="gbook" Then
	PageCode=FKTemplate.ModuleChange(PageCode,Id,PageType)
ElseIf PageType="index" Then
	PageCode=Replace(PageCode,"{$NavNow$}",0)
End If
PageCode=FKTemplate.TemplateChange(PageCode)
PageCode=Replace(PageCode,"{$SiteBreadCrumb$}","")

Response.Write(PageCode)
Set mRs=Nothing
Call FKFun.PageEnd()
%>